home *** CD-ROM | disk | FTP | other *** search
/ Suzy B Software 2 / Suzy B Software CD-ROM 2 (1994).iso / extras / programm / gemfsc20 / gemfsc20.lzh / GEMFBIND / VEXVECTO.S < prev    next >
Text File  |  1993-03-26  |  1KB  |  54 lines
  1. ;*========================================================================
  2. ;* VDIFAST Public Domain VDI bindings.
  3. ;*========================================================================
  4.  
  5.  
  6. ;*------------------------------------------------------------------------
  7. ;* Exchange button change vector.
  8. ;* Exchange mouse movement vector.
  9. ;* Exchange cursor change vector.
  10. ;*------------------------------------------------------------------------
  11.  
  12.           globl     _vex_butv
  13. _vex_butv:
  14.           moveq.l    #125,d0             ;* Exchange button vector function.
  15.           bra.b     vex
  16.           globl     _vex_motv
  17. _vex_motv:
  18.           moveq.l    #126,d0             ;* Exchange movement vector function.
  19.           bra.b     vex
  20.           globl     _vex_curv
  21. _vex_curv:
  22.           moveq.l    #127,d0             ;* Exchange cursor change vector func.
  23. vex:
  24. ;    .cargs    #8,handle.w,newvec.l,oldvec.l
  25.  
  26. handle      =         8
  27. newvec      =         10
  28. oldvec      =         14
  29.  
  30.           link        a6,#0
  31.  
  32.           clr.l     -(sp)                ;* contrl[9-10], old vector.
  33.           move.l    newvec(a6),-(sp)    ;* contrl[8-8],  new vector.
  34.  
  35. ;          VContrl    d0
  36.           move.w    handle(a6),-(sp)    ; contrl[6]
  37.           clr.l     -(sp)                ; contrl[5,4]
  38.           clr.l     -(sp)                ; contrl[3,2]
  39.           clr.w     -(sp)                ; contrl[1]
  40.           move.w    d0,-(sp)            ; contrl[0]
  41.  
  42.           pea        (sp)                ;* -> contrl
  43.  
  44.           move.l    sp,d1
  45.           jsr        vditrap
  46.  
  47.           move.l    oldvec(a6),a0        ;* Return old vector
  48.           move.l    -4(a6),(a0)         ;* from contrl[9-10].
  49.  
  50.           unlk        a6
  51.           rts
  52.  
  53.           end
  54.